NY Times US States Data Analysis

shutdown <- read_ods("./us_shutdown.ods")
## Parsed with column specification:
## cols(
##   State = col_character(),
##   Governor = col_character(),
##   Shutdown = col_character()
## )
shutdown$Shutdown <-lubridate::mdy(shutdown$Shutdown)
shutdown$Delay <- shutdown$Shutdown - as.Date("2020-01-21")
sd <- shutdown %>% ggplot() + geom_col(aes(x=Delay,y=reorder(State,Delay))) +
  labs(title="Elasped Days from First Confirmed Case(WA)",
       x="Delayed in Days",y="US States(and DC",
       caption ="(Shutdown Dates = https://www.nbcnews.com)")
ggplotly(sd)
## Don't know how to automatically pick scale for object of type difftime. Defaulting to continuous.
## Warning: Removed 5 rows containing missing values (position_stack).

Summary of Cases,Deaths and Death Rate by Date

Summary of Cases and Deaths by State

Summary of Ohio Deaths and Cases